inherited frmTd_TraderPrice_Edit: TfrmTd_TraderPrice_Edit
  Left = 414
  Top = 261
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = #24448#26469#21333#20301#20215#26684#36319#36394
  ClientHeight = 255
  ClientWidth = 564
  ExplicitWidth = 570
  ExplicitHeight = 280
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 112
    Top = 31
    Width = 60
    Height = 12
    Caption = #24448#26469#21333#20301#65306
    Transparent = True
  end
  object Label2: TLabel [1]
    Left = 112
    Top = 63
    Width = 60
    Height = 12
    Caption = #36135'    '#21697#65306
    Transparent = True
  end
  object Label3: TLabel [2]
    Left = 112
    Top = 95
    Width = 60
    Height = 12
    Caption = #21333'    '#20301#65306
    Transparent = True
  end
  object Label4: TLabel [3]
    Left = 112
    Top = 159
    Width = 60
    Height = 12
    Caption = #36319#36394#20215#26684#65306
    Transparent = True
  end
  object Label5: TLabel [4]
    Left = 112
    Top = 127
    Width = 60
    Height = 12
    Caption = #24065'    '#31181#65306
    Transparent = True
  end
  inherited pnlBottom: TPanel
    Top = 195
    Width = 564
    ExplicitTop = 163
    ExplicitWidth = 485
    inherited Bevel1: TBevel
      Width = 564
      ExplicitWidth = 485
    end
    inherited btnOK: TBitBtn
      Left = 377
      Top = 20
      ExplicitLeft = 298
      ExplicitTop = 20
    end
    inherited btnCancel: TBitBtn
      Left = 469
      Top = 20
      ExplicitLeft = 390
      ExplicitTop = 20
    end
    inherited btnContinue: TBitBtn
      Top = 20
      ExplicitTop = 20
    end
    inherited btnPri: TBitBtn
      Top = 20
      ExplicitTop = 20
    end
    inherited btnNext: TBitBtn
      Top = 20
      ExplicitTop = 20
    end
    inherited btnBaseEditSave: TBitBtn
      Top = 20
      ExplicitTop = 20
    end
  end
  object cbbTrader: TcxDBLookupComboBox [6]
    Left = 184
    Top = 26
    DataBinding.DataField = 'traderid'
    DataBinding.DataSource = MainDataSource
    Properties.KeyFieldNames = 'TraderId'
    Properties.ListColumns = <
      item
        Caption = #24448#26469#21333#20301
        FieldName = 'Name'
      end>
    Properties.ListOptions.ShowHeader = False
    Properties.ListSource = ds_trader
    TabOrder = 5
    Width = 169
  end
  object cbbProduct: TcxDBLookupComboBox [7]
    Tag = 10
    Left = 184
    Top = 58
    DataBinding.DataField = 'productid'
    DataBinding.DataSource = MainDataSource
    Properties.GridMode = True
    Properties.ImmediatePost = True
    Properties.ListColumns = <>
    Properties.ListOptions.SyncMode = True
    Properties.OnCloseUp = LcpProductPropertiesCloseUp
    TabOrder = 6
    Width = 169
  end
  object EditPrice: TcxDBTextEdit [8]
    Left = 184
    Top = 154
    DataBinding.DataField = 'price'
    DataBinding.DataSource = MainDataSource
    TabOrder = 7
    Width = 169
  end
  object cbbUnit: TcxDBLookupComboBox [9]
    Left = 184
    Top = 90
    DataBinding.DataField = 'unitid'
    DataBinding.DataSource = MainDataSource
    Properties.KeyFieldNames = 'unitid'
    Properties.ListColumns = <
      item
        Caption = #21517#31216
        FieldName = 'unitname'
      end>
    Properties.ListSource = DS_Unitprice
    TabOrder = 3
    Width = 169
  end
  object edtMoney: TcxDBLookupComboBox [10]
    Tag = 24
    Left = 184
    Top = 122
    DataBinding.DataField = 'moneyid'
    DataBinding.DataSource = MainDataSource
    Properties.ListColumns = <>
    TabOrder = 4
    Width = 169
  end
  inherited btnPrint: TcxButton
    Left = 664
  end
  inherited edtPrint: TcxLookupComboBox
    Left = 736
  end
  inherited MainDataSource: TDataSource
    DataSet = MainDateSet
    Left = 14
    Top = 71
  end
  object MainDateSet: TUniQuery
    SQLInsert.Strings = (
      'Insert into TT_TRADERPRICE(traderid,'
      'productid,'
      'unitid,'
      'btype,'
      'moneyid,'
      'price,'
      'taxprice'
      ')'
      'Values'
      '(:traderid,'
      ':productid,'
      ':unitid,'
      ':btype,'
      ':moneyid,'
      ':price,'
      ':taxprice)')
    SQLDelete.Strings = (
      'Delete from TT_TRADERPRICE'
      ' where tid=:Old_tid')
    SQLUpdate.Strings = (
      'Update TT_TRADERPRICE set '
      'traderid=:traderid,'
      'productid=:productid,'
      'unitid=:unitid,'
      'btype=:btype,'
      'moneyid=:moneyid,'
      'price=:price,'
      'taxprice=:taxprice'
      ' where tid=:Old_tid')
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select * from v_tt_traderprice')
    Left = 16
    Top = 16
    object MainDateSettraderid: TIntegerField
      FieldName = 'traderid'
    end
    object MainDateSetmoneyid: TIntegerField
      FieldName = 'moneyid'
    end
    object MainDateSetproductid: TIntegerField
      FieldName = 'productid'
    end
    object MainDateSetunitid: TIntegerField
      FieldName = 'unitid'
    end
    object MainDateSetbdate: TDateTimeField
      FieldName = 'bdate'
    end
    object MainDateSetbid: TIntegerField
      FieldName = 'bid'
    end
    object MainDateSetbno: TIntegerField
      FieldName = 'bno'
    end
    object MainDateSetbtype: TIntegerField
      FieldName = 'btype'
    end
    object MainDateSetprice: TBCDField
      FieldName = 'price'
      Precision = 18
      Size = 8
    end
    object MainDateSettaxprice: TBCDField
      FieldName = 'taxprice'
      Precision = 18
      Size = 8
    end
    object MainDateSetunitname: TWideStringField
      FieldName = 'unitname'
      Size = 30
    end
    object MainDateSettradername: TWideStringField
      FieldName = 'tradername'
    end
    object MainDateSetp_name: TWideStringField
      FieldName = 'p_name'
      Size = 60
    end
    object MainDateSetp_code: TWideStringField
      FieldName = 'p_code'
      Size = 40
    end
    object MainDateSetp_spec: TWideStringField
      FieldName = 'p_spec'
      Size = 60
    end
  end
  object Qry_Unitprice: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select * from td_unitprice')
    Left = 400
    Top = 8
  end
  object DS_Unitprice: TDataSource
    DataSet = Qry_Unitprice
    Left = 399
    Top = 68
  end
  object ds_trader: TDataSource
    DataSet = qry_trader
    Left = 357
    Top = 65
  end
  object qry_trader: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select *  from td_trader')
    Left = 353
    Top = 6
  end
end
